﻿Partial Public Class gotoPage


    Public Property SelectedPage() As Integer
        Get
            Return Me.Slider1.Value
        End Get
        Set(ByVal value As Integer)
            Me.Slider1.Value = value
        End Set
    End Property

    Public Property Maximum() As Integer
        Get
            Return Me.Slider1.Maximum
        End Get
        Set(ByVal value As Integer)
            Me.Slider1.Maximum = value
        End Set
    End Property

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Me.DialogResult = False
        Me.Close()
    End Sub

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Me.DialogResult = True
        Me.Close()
    End Sub
End Class
